Maple Tool 1

This tool is for use with Activity 2 in section 10.2.

>

>	f:=x->sin(x);

>

P1:=x->x;

>	P3:=x->x-x^3/6;

>	P5:=x->x-x^3/6+x^5/120;

>	plot([f(x),P1(x),P3(x),P5(x)], x=-2*Pi..2*Pi, color=[red,green, blue, brown], thickness=2, view=[-2*Pi..2*Pi,-3..3], scaling=constrained);

>

>	E1:=x->f(x)-P1(x);

>	E3:=x->f(x)-P3(x);

>	E5:=x->f(x)-P5(x);

>

>	plot([E1(x),E3(x),E5(x)], x=-Pi/2..Pi/2, color=[green, blue, brown], thickness=2, view=[-Pi/2..Pi/2,-0.05..0.05]);

>